home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.mactech.com 2010
/
ftp.mactech.com.tar
/
ftp.mactech.com
/
thinkref
/
archive
/
THINKPascalUH2.1.sea
/
THINKPas Univ Hdr 2.1
/
Interfaces
/
AEUserTermTypes.p
< prev
next >
Wrap
Text File
|
1995-09-12
|
3KB
|
85 lines
{ Converted with MPW2TPas Tuesday, September 12, 1995 5:11:38 PM }
{
File: AEUserTermTypes.p
Contains: AppleEvents AEUT resource format Interfaces.
Version: Technology: System 7.5
Package: Universal Interfaces 2.1 in “MPW Latest” on ETO #18
Copyright: © 1984-1995 by Apple Computer, Inc.
All rights reserved.
Bugs?: If you find a problem with this file, use the Apple Bug Reporter
stack. Include the file and version information (from above)
in the problem description and send to:
Internet: apple.bugs@applelink.apple.com
AppleLink: APPLE.BUGS
}
UNIT AEUserTermTypes;
INTERFACE
{$IFC UNDEFINED __AEUSERTERMTYPES__}
{$SETC __AEUSERTERMTYPES__ := 1}
{ $PUSH}
{ $ALIGN MAC68K}
{ $LibExport+}
CONST
kAEUserTerminology = 'aeut'; { 0x61657574 }
kAETerminologyExtension = 'aete'; { 0x61657465 }
kAEScriptingSizeResource = 'scsz';
kAEUTHasReturningParam = 31; { if event has a keyASReturning param }
kAEUTOptional = 15; { if something is optional }
kAEUTlistOfItems = 14; { if property or reply is a list. }
kAEUTEnumerated = 13; { if property or reply is of an enumerated type. }
kAEUTReadWrite = 12; { if property is writable. }
kAEUTChangesState = 12; { if an event changes state. }
kAEUTTightBindingFunction = 12; { if this is a tight-binding precedence function. }
kAEUTApostrophe = 3; { if a term contains an apostrophe. }
kAEUTFeminine = 2; { if a term is feminine gender. }
kAEUTMasculine = 1; { if a term is masculine gender. }
kAEUTPlural = 0; { if a term is plural. }
TYPE
TScriptingSizeResource = RECORD
scriptingSizeFlags: INTEGER;
minStackSize: LONGINT;
preferredStackSize: LONGINT;
maxStackSize: LONGINT;
minHeapSize: LONGINT;
preferredHeapSize: LONGINT;
maxHeapSize: LONGINT;
END;
CONST
{ If kLaunchToGetTerminology is 0, 'aete' is read directly from res file. If set
to 1, then launch and use 'gdut' to get terminology. }
kLaunchToGetTerminology = $8000;
{ If kDontFindAppBySignature is 0, then find app with signature if lost. If 1,
then don't }
kDontFindAppBySignature = $4000;
{ If kAlwaysSendSubject 0, then send subject when appropriate. If 1, then every
event has Subject Attribute }
kAlwaysSendSubject = $2000;
{ old names for above bits. }
kReadExtensionTermsMask = $8000;
{ $ALIGN RESET}
{ $POP}
{$ENDC} {__AEUSERTERMTYPES__}
IMPLEMENTATION
END.